Imports System.Windows.Forms

Public Class frmContactStats

    Public Function BindReport(ByVal ds As DataSet) As Boolean
        Dim oRpt As ReportDocument
        oRpt = CrystalReportViewer1.ReportSource
        oRpt.SetDataSource(ds)
        oRpt = CrystalReportViewer1.ReportSource
        CrystalReportViewer1.ReportSource = oRpt
        Cursor = Cursors.Default
    End Function

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

    End Sub
End Class
